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TSC FLOATING POINT PACKAGE 
VER 2.3 


COPYRIGHT (C) 1976 BY 
TECHNICAL SYSTEMS CONSULTANTS 
BOX 2574 W. LAFAYETTE IN. 47906 


THE TSC FLOATING POINT PACKAGE PROVIDES 
THE BASIC ARITHMETIC FUNCTIONS ADDs SUBTRACTs 
MULTIPLY, AND DIVIDE. .THE NORMALIZED 
FORM OF THE X AND Y OPERANDS IS A MIXED 
FORMAT. THE MANTISSA IS SIGN PLUS MAGNI- 
TUDE PACKED BCD NOTATION. THIS IMPLIES 
THAT THE SIGN BYTE (XSIGN OR YSIGN) IS 
EITHER ALL ZEROS FOR POSITIVE OR ALL ONES 
FOR NEGATIVE. THE MANTISSA ITSELF CXOP OR 
YOP) IS VIEWED AS BEING A 9 DIGIT FRAC- 
TIONAL NUMBER WITH A ZERO TO THE LEFT OF 
THE DECIMAL POINT (CIN THE UPPER HALF OF THE 
MOST SIGNIFICANT BYTE OF XOP OR YOP). THIS 
1S DONE TO SIMPLIFY THE ARITHMETIC AND NOR- 
MALIZATION OPERATIONS. PACKED BCD IMPLIES 
THAT THERE ARE 2 BCD DIGITS PER BYTE. 

THE EXPONENT IS AN & BIT 2°S COMPLEMENT 
NUMBER wITH A RANGE OF #128 10 -127. HOW- 
EVER, BECAUSE OF THE WAY IN WHICH THE 
MULTIPLY» DIVIDE» AND NORMALIZE OPERATIONS 
ARE DONE THE PRACTICAL RANGE IS SLIGHTLY 
SMALLER. ONE CAN TOTALLY AVOID DEALING 
WITH THIS PROBLEM BY RESTRICTING THE EX- 
PONENT RANGE TO +99 AND ~99. THIS SHOULD 
NOT PROVE TO BE AN UNREASONABLE CONSTRAINT. 

THE RESULT OF ALL ARITHMETIC OPERATIONS 
IS RETURNED IN NORMALIZED FORM WITH THE SIGN 
IN RSIGN- THE MANTISSA IN FPAC,s AND THE 
EXPONENT IN ACEXP. 

EXAMPLES OF THE NORMALIZED FORM ARE GIVEN 
BELOW: 


NUMBER SIGN MANTISSA EXPONENT 
+1090 00 0100000000 03 
-1163.12 FF 0116312000 04 
+0.125 on 0125000000 00 
+0.000213 00 6213000000 FO 
-0.000213 FF 0213000000 FD 


THIS PACKAGE CONTAINS SUBOUTINES ONLY. 
AN EXTERNAL DRIVER PROGRAM MUST BE USED TO 
EXERCISE THEM. THE ROUTINE ADDRESSES 
ARE GIVEN BELOW: 


OPERATION NAME ADDRESS 
ADD FPADD 0103 
SUBTRACT FPSUB N409 
MULTIPLY FPMUL C180 
DIVIDE FPDIV 0194 


TSC FLOATING POINT PACKAGE 2 


LOCN 81 Be B3 


9020 
9021 
0026 
9027 
002C 
3920 
293e 
0033 
0034 
9039 
JIO3A 
O58 
~I3C 
CO3D 
JOE 
9 SF 
0941 


3100 


0005 


73 


00 


33 


* 
* 
* 
* STORAGE SPACE 
ORG $20 
RSIGN RMB 1 RESULT SIGN BYTE 
FPAC RMB 5 FLOATING POINT ACCUMULATOR 
ACEXP RMB 1 ACCUMULATOR EXPONENT 
FPMQ RMB 5 FLOATING POINT MQ REGISTER 
XSIGN RMB 1 X SIGN BYTE 
XOP RMB 5 X OPERAND MANTISSA 
XEX RMB 1 X OPERAND EXPONENT 
YSIGN RMB 4 Y SIGN BYTE 
YOP RMB 5 Y OPERAND MANTISSA 
YEX RMB 1 Y OPERAND EXPONENT 
OVFL RMB 1 
ATEMP RMB 4 
ATEMP2 RMB j 
BTEMP RMB 1 
BTEMP2 RMB 1 
XTEMP RMB 2 TEMPORARY X STORAGE 
XTEMP2 RMB 2 
* 
BC EQU 05 OPERAND BYTE COUNT 
* 
ORG $7100 


* 

* 

* FP SUB 

* FLOATING POINT SUBTRACT 

* SUBTRACTS YOP*YEX FROM XOP*XEX 
FPSUB COM YSIGN CHANGE SIGN 
* GO INTO FPADD 

* 

*FPADD 

* FLOATING POINT ADD ROUTINE 

* ADDS YOP*YEX TO XOP#XEX 


FPADOD BSR SETSIN SET SIGN HOLDER 
JSR EXPADS ADJUST EXPONENTS 
LDX HFPAC 
JSR XOPTOX MOVE XOP TO FPAC 
LOX HFPAC 
JSR ZCRK CHECK XOP FOR =0 
BEQ FPADO1 
LOX RYOP 
JSR ZCRK CHECK YOP FOR =0 
BEQ FPADD1 
LDA A RS IGN 
BPL FPADD1 USE EITHER SIGN 
JSR BCOSUB SUBTRACT 
BCS FPADD1 USE X SIGN 
LDX HYOP POINT TO YOP 
JSR LTC RECOMPLEMENT YOP 
LOX HXOP 
JSR LTC COMPLEMENT XOP 


erage ed 
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LOCN B1 Be B3 


9020 
9021 
0026 
0027 
002C 
2920 
2932 
0033 
0034 
9039 
DISA 
9038 
JO3C 
CO3D 
DO3E 
DISF 
0041 


3100 


9193 
9195 
3108 
9108 
JIOE 
21114 
2114 
3116 
9119 
011¢ 
as fe 3 
2120 
D122 
9125 
Wek a 
J12A 
C120 
0130 


0005 


73 


00 


33 


* 
* 
* 
* STORAGE SPACE 

ORG $20 
RSIGN RMB 1 RESULT SIGN BYTE 
FPAC RMB 5 FLOATING POINT ACCUMULATOR 
ACEXP RMB 1 ACCUMULATOR EXPONENT 
FPMQ RMB 5 FLOATING POINT MQ REGISTER 
XSIGN RMB 1 X SIGN BYTE 
XOP RMB 5 X OPERAND MANTISSA 
xXEX RMB 1 X OPERAND EXPONENT 
YSIGN RMB 1 Y SIGN BYTE 
YOP RMB 5 Y OPERAND MANTISSA 
YEX RMB 1 Y OPERAND EXPONENT 
OVFL RMB 1 
ATEMP RMB 1 
ATEMP2 RMB 1 
BTEMP RMB 4 
BTEMP2 RMB 1 
XTEMP RMB 2 TEMPORARY X STORAGE 
XTEMP2 RMB 2 
* 
BC EQU a5 OPERAND BYTE COUNT 
d 

ORG $100 
* 
* 
* FPSUB 


* FLOATING POINT SUBTRACT 

* SUBTRACTS YOP*YEX FROM XOP*XEX 
FPSUB COM YSIGN CHANGE SIGN 
* GO INTO FPADD 

* 

*FPADD 

* FLOATING POINT ADD ROUTINE 

* ADDS YOP*YEX TO XOP*XEX 


FPADD BSR SETSIN SET SIGN HOLDER 
JSR EXPADS ADJUST EXPONENTS 
LDX HFPAC 
JSR XOPTOX MOVE XOP TO FPAC 
LOX HFPAC 
JSR ZCHK CHECK XOP FOR =0 
BEQ FPADO1 
LDX HYOP 
JSR ZCHK CHECK YOP FOR =0 
BEQ FPADD1 
LDA A RS IGN 
BPL FPADD1 USE EITHER SIGN 
JSR BCDSUB SUBTRACT 
BCS FPADD1 USE X SIGN 
LOX AYOP POINT TO YOP 
JSR LTC RECOMPLEMENT YOP 
LDX H#XOP 
JSR LTC COMPLEMENT XOP 


i 
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LOCN 
9133 
9135 
3137 
9139 
39138 
Q13E 
0141 
3144 
3147 


J14A 
3140 
3150 
0152 
3155 
3158 
0159 
215¢€ 
JISE 
9160 
3162 
3164 
0167 
0169 
316C 
J16F 
3172 
0174 


9176 
9178 
DITA 
017¢ 
D17F 


3180 
9182 
9184 
0186 
0188 
218A 
0180 
3190 


83 


3A 


27 
5B 


FPADO1 LDA A YS IGN USE Y SIGN 
BRA FPADD2 

FPADD1 LDA A XSIGN 

FPADD2 STA A RSIGN 


FPAD21 LOX HFPAC 
JSR XOPTOX MOVE XOP TO FPAC 
JSR BCDADD ADD 
LOX HFPMQ 
JSR CLROP CLEAR THE MQ 


* GO INTO NORM 

* 

*NORM 

® NORMALIZE FLOATING POINT RESULTS 
* MQ MUST CONTAIN VALID DATA 


NORM  LDX HEPAC 
JSR ZCHK CHECK FOR ZERO 
BNE NORM2 
CLR ACEXP 
CLR RSIGN 
RTS 
NORM2 LOX HFPAC 
LDA A O-X 
BEQ NORM3 
AND A #SFQ 
BEQ SETSI1 
INC ACEXP 
BVS FPDIV3 CHECK FOR OVERFLOW 
JMP EL4RR 
NORM3 JSR ELGRL 
DEC ACEXP 
BVS FPDIV3 CHECK FOR OVERFLOW 
BRA NORM2 
x 
*SETSIN 


* CALCULATE XSIGN.XOR.YSIGN 
* STORE IN RSIGN 
SETSIN LDA A XSIGN 
EOR A YSIGN 
STA A RSIGN 
CLR OVFL 
SETSI1 RTS 
* 
* 
* FP MUL 
* FLOATING POINT MULTIPLY ROUTINE 
* MULTIPLIES XOP*XEX BY YOP*YEX 
* TRUNCATES PRODUCT TO BC*2-1 BCD DIGITS 


FPMUL BSR SETSIN STORE OPERAND SIGNS 
LDA A XEX 
ADD A YEX CALCULATE EXPONENT 
BYVS FPDIV3 CHECK FOR OVERFLOW 
STA A ACE XP SAVE EXPONENT 
LDX AFPMQ 
JSR XOPTOX MOVE XOP TO MQ 
BSR BCOMUL MULTIPLY 
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LOCN B1 B2 
9192 20 B6 


0194 8D E0 
0196 96 32 
32198 90 39 
D19A 29 27 
919C CE OO 
J19F BD O02 
O1A2 CE O00 


9108 BD 02 
JIAB 4C€ 
O1AC 29 15 
N1AE 97 26 
9180 8D 4B 
9182 25 OF 
| 3184 C6 05 
| 9186 CE 90 
| 0139 A6 06 
9188 A7 OO 
Jiso 038 
J1BE SA 
J18F 26 F8 
91¢1 20 87 
91¢3 73 00 
| 3106 39 


O1c? CE O00 
Q1CA BD 02 


91¢D 80 59 
JIC 
01p2 OC 
9103 ¢6 05 
9105 Ab 04 
0107 A9 17 
9109 19 
J1DA AZ O04 
910¢ 09 
01D0 SA 
J1IDE 26 FS 
2169 20 40 


B3 


21 


3A 


34 
AB 


21 


BRA NORM 


* 
*FPDIV 

*FLOATING POINT DIVIDE ROUTINE 
*DIVIDES XOP#XEX BY YOP*YEX 


*TRUNCATES THE REMAINDER 
FPDIV. &SR SETSIN STORE SIGNS 
LDA A XEX 
SUB A YEX CALCULATE EXPONENT 
BVS FPDIV3. CHECK FOR OVERFLOW 
LDX HEPAC 
JSR XOPTOX MOVE XOP TO THE AC 
LOX HEPMQ 
JSR CLROP CLEAR THE MQ 
JSR EL4GRR SHIFT ACMQ TO AVOID OVFL 
INC A COMPENSATE EXPONENT 
BVS FPDIV3 CHECK FOR OVERFLOW 
STA A ACEXP STORE EXPONENT 
BSR BCDDIV. DIVIDE 
BCS FPDIV3 CHECK FOR OVERFLOW 
LDA B #BC 
LDX HFPAC 
FPDIV1 LDA A BC#+1-X . 
STA A O-X MOVE GUOTIENT TO THE AC 
INX 
DEC B 
BNE FPDIV1 
BRA NORM 
FPDIV3 COM OVFL 
RTS 
x 
*BCDSUB 
* SUBTRACTS YOP FROM FPAC 
BCDSUB LDX AYOP 
JSR LTC TAKE TENS COMP 
* GO INTO BCDADD 
* 
*BCDADD 


* ADDS YOP TO FPAC 
* USES ZERO INITIAL CARRY 


BCDADD BSR SAVREG SAVE REGISTER CONTENTS 
LOX HFPAC 
CLC 
LDA B  #BC SET COUNTER 
BCDAD1 LDA A RC-1-x 
ADC A BC*44+3>X 
DAA ADJUST FOR BCD 
STA A BC-1,x 
DEX 
DEC B ONCE DONE 
BNE BCDAD1 
BRA RSTREG RESTORE REGISTERS 
& 
*BCDMUL 


* MULTIPLIES FPMQ 8Y YOP 


TSC FLOATING POINT PACKAGE 5 


LOCN 


JIE? 
J1€5 
JI1E8 
DIEA 
O1EC 
O1EE 
J1F0 
J1Fe 
31FS 
O1F? 
D1F9 
DTFA 
J1FC 


J1FD 
9200 
0202 
0204 
9205 
3206 
9208 
J20A 
920C 
920D 
920F 
9211 
0213 
9216 
3218 
J27A 
0210 
O21E 
9220 
3221 


0222 
9224 
3226 


3228 
J22A 
J22c 
O22E 


B1 


Be 


38 
3D 
3F 


3B 
30 
3F 


B3 


21 
80 


2B 


34 


28 


AB 


* ANSWER IN FPAC AND FPMQ 

BCDMUL LODX HFPAC 
JSR CLROP CLEAR FPAC 
LDA B #BC*2-1 SET CTR 


BCDMU1 LDA A FPMQ+BC-1 GET LS BYTE 
AND A ASGF MASK OFF LS BCD 
BEQ BCDMU3 
BCDMU2 BSR BCDADD ADD IN OPERAND 
DEC FPMQ+BC-1 
BRA BCDMU1 
BCDMU3 BSR EL4RR SHIFT ACMQ 1 BCD RIGHT 
DEC B 
BNE BCDMU1 
RTS 
x 
*BCDDIV 


* DIVIDES FPAC AND FPMQ@ BY YOP 
* QUOTIENT RETURNED IN FPM@,s REMAINDER IN FPAC 
* CARRY RETURNED SET ON OVERFLOW 


BCDDIV LDX #YOP 
BSR ZCHK 
BNE BCDD15 CHECK FOR DIV BY O 
SEC 
BCDDI1 RTS 
BCDD15 LDA B  #BCK2 
_ BSR BCDSUB SUBTRACT OPERAND 
BCC BCDDI3 CHECK FOR OVFL 
RTS 
BCDD16 BSR ELGSRL SHIFT ACMQ@ 1 BCD LEFT 
BCDDI2 BSR BCDADD SUBTRACT OPERAND 
BCC BCDDI3. IF NO CARRY» TOO SMALL 
INC FPMQ+BC-1 TALLY ONE 
BRA BCDDI2 
BCDD13 BSR BCDSUB COMPENSATE REMAINDER 
JSR LTC RECOMPLEMENT 
DEC 8 DEC LOOP CTR 
BNE BCDD16 
CLC 
RTS 
* 
*RSTREG 


* RESTORE REGISTERS XsA-B 

RSTREG LDA A ATEMP 
LDA B BTEMP 
LDX XTEMP 

* GO INTO SAVREG 

* 

*SAVREG 

* SAVE KEGISTERS X-A-B 

SAVREG STA A ATEMP 
STA B  BTEMP 
STX XTEMP 
RTS 


*EL4GRR 
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LOCN 


J22F 
9231 
0233 
0236 
9238 
3239 
9238 
O23E 
0240 
0241 
3243 


0245 
9247 
9249 
924C 
D240 
O24F 
3251 
9254 
9256 
0257 
0259 


0258 
2250 
3260 
3262 
0264 
9265 
2267 
9269 
9268 
J26C 
O26E 
3270 
9271 
9273 


0275 
9277 
9279 
3278 


B1 


B2 


95 


4 


B3 


21 


27 


e7 


21 


2D 


* EXTRA LONG 4 ROTATE RIGHT 
* ROTATES ACMQ@ RIGHT ONE BCD 


EL4RR- BSR SAVREG SAVE PTRS 
LDA A #OG 

EL4RR1 LDX HFPAC POINT TO AC 
LDA B #01 
CLC 
BSR LRR SHIFT AC 
LDX HFPMQ POINT TO MQ 
BSR LRR SHIFT MQ 
DEC A 
BNE EL4RR1 
BRA RSTREG 

* 

*EL4SRL 


* EXTRA LONG 4 ROTATE LEFT 
* ROTATES ACMQ LEFT ONE BCD DIGIT 


EL4RL BSR SAVREG 

LDA A #4 SET SHIFT COUNT 
EL4RL1 LDX A#FPMQ 

CLC 

LDA B #01 

BSR LRL SHIFT 

LOX AFPAC 

BSR LRL SHIFT AC 

DEC A 

BNE EL4RL1 
EL4RL2 BRA RSTREG RESTORE POINTERS 
* 
*XOPTOX 


* MOVE XOP TO LOCN POINTED TO BY x 
* MODIFIES x 


XOPTOX BSR SAVREG 
LDX HXOP POINT TO xOP 
LDA B #BC SET CTR 
XOPTO1 LDA A 0,x 
INX 
STX XTEMP2 STORE PTR 
LOX XTEMP LOAD DEST PTR 
STA A O-X 
INX 
STX XTEMP 
LDX XTEMP2 
DEC B 
BNE XOPTO1 
BRA RSTREG 
* 
*ZCHK 


* CHECkK A 5 BYTE BCD FOR =0 
* OPERAND POINTED TO BY xX 

*» MODIFIES B-x 

ZCHK LDA B&B ABC 


ZCHKT TST 0-¥ 
BNE ZCHK2 
INX 
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LOCN B1 B2 83 


J27C SA DEC 8 
27D 26 FB BNE ZCHK1 
J27F 39 ZCHK2 RTS 

* 

*CLROP 


* CLEAR 5 BYTE OPERAND POINTED TG BY X 
* MODIFIES B-X 


3280 C6 O05 CLROP LDA 8 HBC 
0282 6F OO CLROP1 CLR O-Xx 
0284 08 INX 
9285 SA DEC B 
9286 26 FA BNE CLROP1 
0288 39 RTS 

* 

*LRR 


* LONG ROTATE RIGHT WITH CARRY 
* X POINTS TO THE MS BYTE 
* B CONTAINS AMOUNT OF SHIFT 


3289 8D 65 LRR BSR SVRG2 
928B DE 41 LRR1 L DX XTEMP2 
028D 86 95 LDA A HBC 
O28F 66 ¢ LRRe ROR M,xX 
3291 08 INX 
2292 4A DEC A 
9293 26 FA BNE LRR2 
0295 SA DEC B 
0296 26 F3 BNE LRR1 
278 29° SC LRR3 BRA RSRG2 
* 
*LERL 


* LONG ROTATE LEFT WITH CARRY 
* X POINTS TO THE MS BYTE 
* B CONTAINS THE AMOUNT OF SHIFT 


J29A 8D 54 LRL BSR SVRG2 
J29C DE 41 LRL1 L DX XTEMP2 
I29E 86 05 LDA A ABC 
O2A0 69 04 LRL2 ROL BC-1,X 
N2A2 09 DEX 
J2A3 4A DEC A 
92A4 26 FA BNE LRL2 
Q2A6 SA DEC 8 
O2A7 26 F3 BNE LPL 
J2A9 20 4B BRA KSRG2 
* 
KLTC 


* LONG TENS COMPLEMENT OF UPERAND 
* POINTED TO BY xX 


O2AB 8D 43 LTC BSR SVRG2 
J2AD C6 O5 LDA B AEC 
J2AF 86 99 LTc1 LDA A ASS99 
2281 AO O04 SUB A bC-1,Xx 
0233 A? 04 STA A BC-1,-%X 
0285 09 DEX 

9286 SA DEC B 


2287 26 F6 BNE LTCc1 
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LOCN B1 B2 B3 


9289 9D SEC 
J2BA C6 95 LDA B ABC 
32BC DE 41 LDX XTEMP2 
O2BE 86 00 LTC2 LDA A #00 
02€9 A9 04 ADC A BC-1+x 
J2C2 19 DAA 
92€3 A7 04 STA A BC-14X 
92¢5 09 DEX 
02C6 SA DEC B 
02C7 26 F5 BNE LTC2 
92¢9 20 2B LTC4 BRA RSRG2 
* 
*EXPADJ 


* ADJUSTS EXPONENTS FOR ADD AND SUBTRACT 


* OPERATES ON XOP AND YOP 
* MODIFIES AvrBseX 


92CB 96 32 EXPADJ LDA A XEX LOAD X EXPONENT 
J2c0 91 39 CMP A YEX COMPARE WITH Y EXP 
O2cF 27 1C BEQ EXP3 EXPONENTS SAME? 
0201 2— 07 BGT EXP1 XEX>YEX? 
72p3 CE M0 2d LDX HXOP POINT TO XOP 
3206 96 39 LDA A YEX GET YEX 
3208 20 Q3 BRA EXP2 
O2DA CE 00 34 EXP1  LDX HY CP POINT TO YOP 
O2DD C6 04 EXP2 LDA B #04 
J20F 8D AB BSR LRR 
9261 £6 O00 , LDA B 9-X 
9263 C4 OF AND B  #SOF MASK OFF GOOD BCD 
O2€5 E7 90 STAB OFX SHIFTED 1 BCD RIGHT 
N2E7 6C O05 INC BC,X INCREMENT EXPONENT 
22E9 At OS CMP A BCX SAME YET? 
N2€B 26 FN BNE EXP2 IF NOT, DO AGAIN 
O2ED 97 26 EXP3 STA A ACEXP STORE NEW EXPONENT 
O2EF 39 RTS DONE 

* 

*SVRG2 

* LEVEL2 REGISTER SAVE 
D2FO DF 41 SVRG2  STX XTEMP2 
O2F2 97 3¢ STA A ATEMP2 
O2F4 D7 3E STA BRB BTEMP2 

* GO INTO RSRG2 

* 

*RSRG2 

* LEVEL2 REGISTER RESTORE 
O2F6 DE 41 RSRG2 LDX XTEMP2 
O2F8 96 3¢ LDA A ATEMP2 
O2FA D6 3E LDA B  BTEMP2 
O2FC 39 RTS 

END 


SYMBOL TABLE: 


ACEXP 0026 ATEMP 0038 ATEMP2 003C BC 
BCBADT 9105 BCDDIV O1FD BCDDIT 9205 ACODDT? 


9005 BCDADD 01CD 


none ArANHTtT® N40 


9 


BCDD15 0206 BcDD1é6 0200 RCDMUL OTE2 
BCDMU3 C1F7 BcDSUB O1C7 BTEMF (CO3D 
CLROP1 0282 EL4RL 0245 EL4RL1 0249 
EL4RR1 9233 EXPADJ O2CB EXP1 C2DA 
FPAC 0021 FPADD 0163 FPADD1 0137 


FPAD21 0138 FPOIV 0194 FPDIV1 0189 
FPMUL %180 FPSUB 9100 LRL C29A 
LRR N289 LRR1 0288 LRRe C28F 


LTC1 O2AF LTce2 O2BE LTC4 C2c9 
NORM3 916C OVFL OO3A RSIGN 0020 


SAVREG 0228 SETSIN 0176 SETSI1 O17F 
XOP 0020 XOPTOX 0258 XOPTO1 O262 
XTEMP2 0041 YEX 0039 YOP 0034 


ZCHK1 0277 ZCHK2 OI27F 


$11301607300338D71BD02CBCECG21BDG25BCENDES 
$113011021B002752710CEO034BD02752719962016 
S$11301202A15BD01C72510CED034BD02ABCF O02 D6B 
$1130130BD92AB96332002962C9720CEN021B8D025F 
S113 014605BBD91CDCECO27BDO28NCENO21BDO2756E 
$113015026077FO0267F O02039CE0021A6002 70629 
S1130160846FO271B7COD26295A7ED22 FBDO2457A83 
$113017000262946F20E3962C9B3397207FIDZA39AS 
$11301808DF496329839293B9726CE0027BD025B1E 
$11301998D05020B68DE0963290392927CECN2IBDAE 
S113 01A0025BCE002 7BDO2B0BDO22F402915972685 
$11301BO08D4B250FCOOS5SCEQD2TA606A70CO85AZE9A 
511301COF8208773003A39CE 003 4BD0 2AB8DSIC E86 
SITS OIDINOZIOCCODSAGDSAIIT7TIIATO4OISAZOFE S77 
SITZOTEDZO040CEDOZ1IBOO2Z80C609962B840F27072C 
ST13N1TFORDDB7ANN2B2ZOF 38D S65A26EESOCENOS4OF 
$113 02008D7326020D3 9CE0AB8DBD240C398DIEBDAD 
$11302198C24057CO02B20F 78DADBDI2ZABSACHEDLE 
S11302200C39963BD63DDESFIT3BD/3DDF3F39380BA 
S113 0230F 78604CEODO2Z1COO1TNC8D4SECEQG278D49D1 
S113 02404AZ26FO2Z0DD2DE18604CE 002 70066018000 
$113025049CE00218D444A26F 020C 78DCBCED0L DF? 
S113 0260C605AG0008DF4IDESFA7OOCSDF3FDE4SIER 
S113 02705A26EF2Z0ADC6056D002604C085A26F 83923 
ST1ZOZ2Z80CO60S6FOUD8SALEFA3IBDESDE4186056673 
STIZSD2ZIDDOOB4ALCOFASAZEF3S2OSCBDS4DE4SITBOOS6OE 
$11302A06904094A26FASAZ6F 3204880430605 8668 
S11302B8099A004A70409 5A2C6F60DC605DE41860056 
S113 02CDA90419A7O409SAZEFS52028963291392737 
$113 02D01C2EN7CED020963 92003CEN93 4060480 83 
STIZOZEQAZEGOOC4OFE 7006C05A1952 6F U9 72 6399F 
STTOO2ZFODF41973CD73EDES 1963 CDE63SES9B7 
S9OSONO0FC 


BCDMU1 
BTEMP2 
EL4RL2 
EXP2 
FPADD2 
FPDIV3 
LRLI 
LRR3 
NORM 
RSRG2 
SVRG2 
XSIGN 
YSIGN 


OVEA 
NO3E 
9259 
O2dD 
0139 
01¢3 
029C 
62983 
O14A 
O2F6 
O2F0 
002Cc 
0033 


BCDMU2 
CLROP 
EL4KR 
EXP3 
FPADO1 
FP MQ 
LRL2 
LTC 
NORM2 
RSTREG 
XEX 
XTEMP 
ZCHK 


01F0 
0280 
O22F 
C2ED 
0133 
C027 
O2A0 
U2AB 
0159 
C222 
0032 
OO3F 
0275 


FLOATING POINT PACKAGE DORIVEP 


‘LOCN B1 Be B3 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
x 
* 
x 
* 
* 
* 
x 
* 
a 
* 
x 
* 
* 
* 
* 
* 
* 
x 
* 
* 
* 
* 
* 
* 
x 
* 
* 
*® 
« 
* 
* 
* 
* 
* 
* 
* 
* 
x 
* 
* 
x 
* 
* 
* 
* 


TSC FLOATING POINT PACKAGE DRIVER 


COPYRIGHT (C) 1976 BY 
TECHNICAL SYSTEMS CONSULTANTS 
BOX 2574 Ww. LAFAYETTE IN. 47906 


THE TSC FLUATING POINT PACKAGE DRIVER+> WHEN 
USED IN CONJUNCTION WITH THE TSC FLOATING POINT 
PACKAGEs IMPLEMENTS A BASIC FOUR-FUNCTION 
SCIENTIFIC NOTATION CALCULATOR. THIS PROGRAM 
ACCEPTS INPUT FROM THE KEYBOARD, IN A FORM 
TO BE DESCRIBED LATER» INITIATES THE CALCULATION 
AND THEN OUTPUTS THE RESULT. 

THE USER IS PROMPTED wITH THE SYMBOL > 
AT WHICH POINT THE FIRST OPERAND IS TYPED. THE 
OPERANDS ARE SURJECT TO FORMAT RESTRICTIONS 
AS NOTED BELOW. DIRECTLY FOLLOWING THE FIRST 
OFERAND THE USER TYPES THE OPERATOR», EITHER A 

+,--%, OR / FOR ADDs SUBTRACT.» MULTIPLY» OR 
DIVIDE, RESPECTIVELY. DIRECTLY FOLLOWING THE 
OPERATOR», THE USER TYPES THE SECOND OPERAND. 
SUBJECT TO THE SAME RESTRICTIONS AS THE FIRST. 
NEXT A CARRIAGE RETURN IS TYPED TO INITIATE 
THE CALCULATION AND THEN THE ANSWER IS TYPED 
OUT AND THE USER IS PROMPTED FOR THE NEXT 
CALCULATION. 

THE RESTRICTIONS ON THE FORMAT OF THE 

OPERANDS ARE AS FOLLOWS: 

1) THE OPERAND MUST BEGIN WITH A PLUS, 
A MINUS, A DECIMAL POINT (CPERIOD),» OR ANY 
DECIMAL DIGIT. 

2) THE DECIMAL PUINTs IF IT APPEARS» MAY 
BE ANY WHERF IN THE NUMBER AFTER THE SIGN 
CIF AWY) AND BEFORE THE EXPONENT CIF ANY). 

3) THE EXPONENT» INDICATED BY THE LETTER 
Er MAY BE PRECEEDED BY A PLUS OR MINUS SIGN 
AND IS LIMITEb TO TWO DIGITS. 


THE CALCULATOR TRUNCATES ALL DIGITS IN EXCESS 

OF 9 SIGNIFICANT DIGITS. 
SOME POSSIBLE FORMS ARE SHOWN BELOW: 

>12*1.3 

>.J01-6 

>-12+3E2 

>+5 .6E-21/-21F 49% 

>123456.729+ 987654521 

>+1.0--3.1E-1 

>4%x-5 


DEPARTURE FROM THE FORMAT RESTRICTIONS WILL 
CAUSE A SYNTAX ERROR MESSAGE TO BE PRINTED. 

OPERATIONS RESULTING IN ARITHMETIC OVER- 
FLOW OR UNDERFLOW WILL CAUSE AN OVERFLOW 
MESSAGE TU KBE PRINTED. 


FLOATING POINT PACKAGE 


LOCN B1 Be B3 


3059 
9956 
O957 
9058 
0059 
DO5A 
3958 
J95¢ 


A048 


0300 
0303 
0306 
0399 
O30A 
O30C 
O30E 
3311 
3313 
3315 
0318 


£97E 
ETAC 
E101 
E067 
E06B 


OC3F 
0041 
003D 
OO3E 
092C 
0033 
0026 
O29 
JO3SA 


0103 
01709 
0186 
0194 


42 
DB 
7E 


EE 


2c 
03 


Is 0 


* 
* 
* 
* MIKB 
x 

x 

PDATA1 
INEEE 
OUTEEE 
OUTHL 
OUTHR 


* 


* STOR 


INBUF 
INE XP 
SIGDIG 
DECFLG 
EXPNEG 
EXP 
SYNTAX 
OPER 
XTEMP 
XTEMP2 
CTR 
TOGGLE 
XSIGN 
YSIGN 
ACEXP 
RSIGN 
OVFL 

* 

* 


DRIVER 


THE STARTING ADDRESS OF THIS PROGRAM 


300. 


UG 


ROUTINES 


(MIKBUG IS A REGISTERED 


TRADEMARK OF MOTOROLA INC.) 


EQU 
EQU 
E QU 
EQU 
EQU 


AGE 
ORG 
RMB 
RMB 
RMB 
RMB 
RM& 
RMB 
RMB 
RMB 
EQU 
EQU 
EU 
EQU 
EGU 
EQU 
EQU 
EQU 
EGU 


SEQTE 
SETAC 
$E101 
SEDO? 
$6068 


$0050 


— ae ow 2m OO 


SOCSF 
$0041 
$0C3D 
$UO3E 
$)G2C 
$0633 
$0626 
$0G2U 
SUI3A 


*FLOATING POINT PACKAGE ROUTINES 


FPADD 
FPSUB 
FPMUL 
FPOIV 
* 


EQU 
EQU 
EQU 
EQU 


ORG 
FOB 
ORG 
LDS 
LOX 
JSR 
CLR 
STA 
STA 
JSR 
LDA 
BNE 
LDX 
JSR 


> > 


$01C3 
$0100 
$0186 
$0194 


SAG4S 
BEG 
$030G 
HSAQ42 
HPROM 
PDATA1 


SYNTAX 
OPER 
INPUT 
SYNTAX 
SYNERR 
AXSIuN 
BUFTOX 


INITIALIZE SP 


CLEAR SYNTAX ERROR 
CLEAR OPERATOR FLAG 
FILL THE INPUT BUFFER 
CHECK FOR SYNTAX ERROR 


TRANSFER INPUT TO XOP 


FLOATING 


POINT PACKAGE DRIVER 


Be B3 
03 EE NXTOP JSR 
5B LDA A 
oF BNE 
00 33 LOX 
03 b3 JSR 
5¢ LDA A 
DEC A 
15 BEQ 
DEC A 
OD BEQ 
DEC A 
05 BEQ 
01 94 JSR 
OD BRA 
01 80 MULOP JSR 
08 BRA 
01 00 SUBOP JSk 
03 BRA 
01 03 ADDOP JSR 
3A PRINT LDA A 
OD BEQ 
04 E2 Ov LDX 
EO 7E PRIMES JSR 
Be BRA 
O04 EF SYNERR LDX 
F6 BRA 
21 NOVFL ~ LDA A 
03 BEQ 
00 26 DEC 
26 OVCHK LDA A 
63 CMP A 
E6 BGT 
9D CMP A 
E2 BLT 
04 FA LOX 
EQ 7E JSR 
20 LDA A 
05 BEQ 
20 LDA A 
E71 01 JSR 
21 POS LDA A 
EO 68 JSR 
98 LDA B 
00 25 LOX 
00 CNTOFF LDA A 
OF BIT A 
09 BNE 
DEC B 
FO BIT A 
4 BNE 
DEX 
DEC B 
F1 BNE 
O00 22 GOTCNT LDX 
TST B 


INPUT FILL BUFFER AGAIN 

SYNTAX 

SYNERR CHECK FOR SYNTAX ERROR 

HYSIGN 

BUFTOX TRANSFER TO YOP 

OPER GET OPERATOR 

ADDOP IS IT AN ADO REQUEST 

SUBOP IS IT A SUBTRACT REQ. 

MULOP IS IT A MULT. REQUEST 

FPDIV ASSUME IT IS A DIVIDE 

PRINT 

FPMUL GO MULTIPLY 

PRINT 

FPSUB GO SUBTRACT 

PRINT 

FPADD GO ADD 

OVFL 

NOVFL TEST FOR OVERFLOW 

HOVER 

PDATA1 GIVE HIM MESSAGE 

START DO AGAIN 

#SYNT 

PRTMES PRINT MESSAGE 

RSIGN+1 GET FIRST DIGIT 

OVCHK CHECK FOR =0 

ACE XP ADJUST FOR OUTPUT 

ACE XP 

#99 

OV: TEST FOR EXP OVERFLOW 

H#S9D 

OV TEST FOR EXP UNDERFLOW 

AEQUAL 

PDATAT PRINT CRLF = 

RSIGN GET SIGN 

POS IS IT POSITIVE 

Ate 

OUTEEE PRINT A MINUS 

RSIGN+1 GET BYTE 

OUTHR PRINT LS BCD 

#8 SET FOR COUNTING OFF 

HACEXP-1 POINT TO LAST BYTE 

O-X GET THE BYTE 

#3CF 

GOTCNT CHECK FOR LS ZERO 
COUNT OFF DIGIT 

ASFO 

GOTCNT CHECK FOR MS ZERO 
POINT TO NEXT 
COUNT OFF ONE DIGIT 

CNTOFF IF NOT 8 DO AGAIN 

ARSIGN+2 POINT TO SEC. BYTE 


CHECK FOR ZERO 


FLOATING 


LOCN 
9393 
0395 
0397 
D39A 
939C 
939F 
O3A0 
O3A2 
J3A4 


O3A7 


I3A8 
O3A9 
O3A8 
O3AD 
J3AF 
9381 
03B4 
0386 
9387 
3389 
93BA 
O3B8C 
O3BF 
33¢0 
33¢2 
93¢4 
93¢5 
O3C7 
O3CA 
33CC 
‘93C0 
3300 


9303 
93D5 
0308 
O3DA 
0308 
J3DE 
I3E0 
O3E2 
O3E4 
I3E6 
O3E7 
J3E9 
O3EB8 
O3ED 


OSEE 
O3F1 
I3F3 


POINT 


00 
00 


01 


67 


6B 


D1 


01 


68 


6B 
03 


50 


58 


5A 


PACKAGE 


PRTLOP 


PRTEXP 


PRTEXS 


SUBT 


TOOMAN 


NOPRT 
* 


*BUFTOX 


DRIVER 


BEQ 
LDA A 
JSR 
LDA A 
JSR 
DEC 8 
BEQ 
LOA A 
JSR 
INX 
OEC B 
BNE 
LOA B 
BEQ 
LDA A 
JSR 
LDA A 
TST B 
BPL 
NEG B 
LDA A 
JSR 
CLR A 
SUB 8B 
BCS 
INC A 
BRA 
JSR 
LDA A 
ABA 
JSR 
JMP 


PRTEXP If SOs GO PRINT EXP. 


OUTEEE PRINT DECIMAL POINT 


0.x GET NEXT CHAR 
OUTHL PRINT MS BCD 
CHECK IF DONE 


PRTEXP IF SO GO PRINT EXP. 


0,-Xx GET BYTE AGAIN 
OUTHR PRINT LS BCD 


ONE BYTE DONE 
PRTLOP 
ACEXP 
NOPRT CHECK FOR EXP =0 
AE 
OUTEEE PRINT AN E 
#*+ GET ASCII FOR + 
CHECK THE SIGN 
PRTEXS TEST SIGN 


COMPLEMENT THE EXP. 


Hr 


OUTEEE PRINT EXPONENT SIGN 
CONVERT TO BCD AND PRINT 


#10 SUBTRACT 10 


TOOMAN SHOULDN®T SUBTRACT? 


COUNT ONCE 
SUBT 
OUTHR PRINT MS DIGIT 
#10 


COMPENSATE REMAINDER 


OUTHR PRINT LS DIGIT 
START 


* MOVE INPUT BUFFER CONTENTS TO X 


BUF TOX 


BUF 1 


STX 
LOX 
LDA A 
INX 
CPX 
BEQ 
STX 
LDX 
STA A 
INX 
STX 
LDX 
BRA 
RTS 


XTEMP SAVE X 
#INBUF 


G-x GET CHAR OF BUFFER 


HINEXP+2 DONE YET? 
DONE 

XTEMP2 

XTEMP 

O-xX 


XTEMP 
XTEMP2 
BUF 1 


THE INPUT GUFFER AND SET FLAGS 


LDX 
CLR 
DEX 


REXP 
Q,x CLEAR THE BUFFER 


FLOATING 


LOCN 
O3F4 
J3F7 
I3F9 
O3FA 
O3FD 
O3FF 
0401 
9404 
0406 
0408 
240A 
349C¢ 
D40E 
9410 
0412 
0414 
9415 
9417 
0419 
O41A 
O41D 
J4O1F 
0421 
0423 
0425 
0427 
J429 
2428 
O42D 
O42F 
0431 
9433 
0435 
0437 
0439 
043C€ 
D43E 
0440 
0442 
0445 
0447 
3449 
Q44A 
3448 
044C 
0440 
O44F 
0451 
0454 
9456 
0457 
J45A 
O45C 
O45F 
0461 


POINT PACKAGE DRIVER 


D3 


D3 


56 


56 


3€ 


30 


INCH 


NOTNEG 


NOTPT 


ISPT 
INNEXT 
GETIN 
CRCHK 


CPX 
BNE 
INX 
CLR 
LDA 
STA 
JSR 
CMP 
BEQ 
CMP 
BNE 
COM 
BRA 
CMP 
BEQ 
INX 
BRA 
STA 
INX 
JSR 
CMP 
BEQ 
SU6& 
BEQ 
BMI 
CMP 


* BHI 


GOTZER 


TSTNXT 


STORIT 


LOHALF 


NOTNXT 


NOTYET 


STA 
LDA 
BNE 
LDA 
BNE 
LDA 
BEQ 
DEC 
BRA 
LDA 
BNE 
INC 
LDA 
BNE 
ASL 
ASL 
ASL 
ASL 
ORA 
STA 
COM 
BNE 
INX 
CPX 
BNE 
COM 
BRA 
ADD 


> >>> > YP 


5 


HINBUF-1 
STUF 


CTR 
ASF F 
TOGGLE 
INCHAR 
#"+ 
INNEXT 
H*- 
NOTNEG 
0X 
INNEXT 
HT, 
ISPT 


CRCHK 
DECFLG 


INCHAR 
ASD 
REL 
#*O 
GOTZER 
NOTYET 
#'9-'0 
NOTYET 
SIGDIG 
CTR 
GETIN 
SIGDIG 
TSTNXT 
DECFLG 
GETIN 
INEXP 
GETIN 
DECFLG 
STORIT 
INE XP 
TOGGLE 
LOHALF 


0-X 
OX 
TOGGLE 
NOTNXT 


RINEXP 
GETIN 
CTR 
GETIN 
#24 


CLEAR FULL FLAG 


SET BYTE TOGGLE 
GET A CHAR 


IGNORE PLUS SIGN 


IF NOT MINUS PROCEED 
SET SIGN INDICATOR 
GET NEXT CHAR 


CHECK FOR DEC. POINT 
POINT NEXT BYTE 

GO CHECK FOR CR 

SET DECIMAL FLAG 


GET CHAR 


CHECK FOR CR 

REMOVE ASCII BIAS 
CHECK FOR ZERO INPUT 
CHECK FOR <O 


CHECK FOR >9 
SET SIGNIFICANT FLAG 


CHECK FOR BUFF. FULL 
HAD SIG. DIGITS? 


HAD DECIMAL PT? 
1F NOT QO NOT SIG. 
IF SO BACK UP EXP. 


HAD DECIMAL PT? 

IF SO EXP. OK 

KICK EXPONENT 

CHECK FOR WHICH DIGIT 


GET TO TOP HALF 
MERGE 

RE-STORE IT 

SET FOR NEXT DIGIT 
CHECK FOR NEXT BYTE 
POINT TO NEXT BYTE 
CHECK FOR END OF BUFF 
IF NOT GET MORE 

SET BUFFER END FLG 
GET NEXT CHAR 
RESTORE ASCII 


FLOATING 


POINT PACKAGE 


SA 


a9 


1D 


SYNERF 


GOTOP 


REL 
EXPIN 


EXINP 
CHKNXT 


SYNE XP 


EXPOK 


GOTDIG 


DRIVER 


CMP 
BEQ 
LDA 
CMP 
BEQ 
INC 
CMP 
BEQ 
INC 
CMP 
BEQ 
INC 
CMP 
BEG 
CMP 
BNE 
LDA 
BNE 
STA 
BRA 
STA 
BRA 
LDA 
BNE 
STA 
BRA 
BSR 
CMP 
BEQ 
CMP 
BNE 
COM 
BSR 
SUB 
BMI 
CMP 
BLS 
ADD 
JMP 
LDA 
ASL 
ASL 
ASL 
ASL 
ABA 
STA 
BRA 
LDA 
AND 
LSR 
TAB 
LSR 
LSR 
ABA 
LDA 


6 


SYNERF 
DECFLG 
SYNERF 
DECFLG 
GETIN 
SYNTAX 
GETIN 
OPER 
SYNERF 
OPER 
GOTDIG 
INCHAR 
Ht + 
EXPIN 
Atm 
CHKNXT 
EXPNEG 
INCHAR 
#°O 
SYNEXP 
#9 
EXPOK 
#'O 
CRCHK 
EXP 


EXP 
EX INP 
EXP 
HSFO 


CHECK FOR EXP IND. 
SET OPER FLAG 


CHECK FOR ADD OPER. 

CHECK FOR SUB. OPER. 

CHECK FOR MUL. OPER. 

CHECK FOR DIV. OPER. 

CHECK FOR DEC. PT 

CHECK FOR ALREADY DEC. PT. 
FLAG A DEC. PT. 

FLAG A SYNTAX ERROR 

GET MORE CHARS. 

CHECK FOR ALREADY OPER. 


IF SO- FLAG AN ERROR 
SET OPER FLG 


IGNORE PLUS 

SET EXPONENT SIGN 
GET A CHAR 

CHECK FOR <O 
CHECK FOR >9 


RESTORE ASCII 
GO CHECK FOR CR 


MERGE 
STUFF EXP 


MASK MS 4 BITS 


MULTIPLY BY 10 
GET OLD EXP BACK 


FLOATING 


LOCN 81 
24€6 C4 
94C8 18 
04C9 D6 
04CB 27 
94Cd 40 
J4CE 98 
0400 97 
0402 39 
0403 BD 
04D6 81 
2408 27 
J4DA 39 
040B QD 
O4DF 3E 
D4E1 04 
24€2 00 
J4GE6 GF 
O4EE 04 
O4EF OD 
O4F3 53 
J4F9 04 
Q4FA OA 
O4FD 20 
O4FF 04 


SYMBOL 


ACE XP 
CHKNXT 
DONE 

EXPNEG 
FPSUB 
GOTOP 
INEEE 
LOHALF 
NOTPT 
OUTEEE 
OVER 

PRINT 
PRIMES 
STORIT 
SYNERR 
TOOMAN 
YSIGN 


POINT PACKAGE DRIVER 


B2 B83 
OF 


59 
01 


56 
56 


E17 AC 
20 
F9 


TABLE: 


0026 
O4A3 
O3ED 
n059 
9100 
048C 
E1AC 
044D 
0414 
E101 
O4E2 
0345 
034C 
0445 
0351 
O3C7 
0033 


POSEXP 


INCHAR 


PROM 


OVER 


SYNT 


EQUAL 


ADDOP 
CNTOFF 
EQUAL 
EXPOK 
FULL 
GOTZER 
INEXP 
MULOP 
NOTYET 
OUTHL 
OV FL 
PROM 
REL 
STUF 
SYNEXP 
TSTNXT 


AND 
ABA 
LDA 
BEQ 
NEG 
ADD 
STA 
RTS 
JSR 
CMP 
BEQ 
RTS 
FCB 
FCC 
FCB 
FCB 
FCC 
FCB 
FCB 
FCC 
FCB 
FCB 
FCC 
FCB 
END 


0342 
0380 


OGFA 


0480 
0463 
0420 
0056 
0338 
0461 
E06? 
QO3A 
0408 
0492 
O3F1 
O4AB 
O43E 


> Pr > 


#S0F GET LS DIGIT 
ADD IN 

EXPNEG CHECK FOR EXP SIGN 

POSEXP = 

INEXP GET RESULTING EXP. 

INE XP STORE IT 

INEEE GET A CHAR 

#S20 

INCHAR IGNORE BLANKS 

$0-$A0/0 

7> 2 

4 

$D,$A,0-0 

,OVERFLOW, 

4 

$D-$A-0-0 

eSYNTAX;s 

4 

$A70-0 

= 

4 
BEG 0300 BUFTOX 0303 
CRCHK 0410 CTR. 0030 
EXINP OQ4A1 EXP OOSA 


FPADD 0103 FPDIV 0194 
GETIN Q41A GOTCNT O38F 
INBUF Q0050 INCH 0401 
INNEXT 0419 INPUT OQ3EE 


NOPRT 0300 NOTNEG 0410 
NOVFL 0356 NXTOP 0Q31B 
OUTHR E06B OV 0349 
PDATA1 EQ7E POS 0376 


PRTEXP O3AB PRTEXS O38C 
RSIGN 04920 SIGDIG 0057 
SUBOP 033D SUBT 03c0 
SYNT C4EF SYNTAX OO5B 
XSIGN Q02C XTEMP OO3F 


BUF1 
DECFLG 
EXPIN 
FPMUL 
GOTDIG 
INCHAR 
ISPT 
NOTNXT 
OPER 
OV CHK 
POSEXP 
PRTLOP 
START 
SYNERF 
TOGGLE 
XTEMP2 


0308 
GO58 
0494 
0180 
0488 
D403 
0417 
0457 
905C 
0350 
O4CE 
C39A 
C303 
0488 
COSE 
0041 


$105A04803000F 
STIZO3008EAD4S2CEO4DBBDEOZESFO7SBO75CBDO3BD 
STIZSOZ10EEV6SB263CCEDDZCBDOSD3IBDOSEE96SB6C 
S1130320262FCEQO33BDU3D3965C4A27154A270DEA 
$11303304A27058D0194200D8D01 80200 8BD0T00A0 
$113034020038D0103963A2 70DCEQ4E2BDEDZE2ZOD2 
S113 0350B2CED4EF20F 696212703 7A002696268152 
STIZO36N632ZEE68IID2DEZCEDSFABDEDZE96202721 
$113037005862DBDE1D0196021BDE06BC 6CECED025D2 
ST1Z0380A60085S0F26095A85FO2Z604095AC6FICEBF 
$11303900022502716862EBDEIDIA6ODBDEDE75A76 
S113 03A02709A600BDECOBOBS5AC6EFD6262721862A 
$11303B0458DE1D1862B5D2A035 0862 DBDEIDISF89 
S113 03COCOOA25034C20F 9IBDED6B860A1BBDE06B17 
$11303007E0303DF3FCE0050A600088C0058270093 
STIZSOSEODF4IDESFAPOODSDF3FDE4SIZ0EB39CEDOCE 
STTSOSFOSAGFOOO98COC4SF26FSO87FOO3ZDCOFFDPCE 
$11304003E£8D0403812B2711812D260463002009CE 
$1130410812E2703082006975808BD04D0381002791 
$113042071803027082B3A810922369757063D260CA 
STTSO4S3SOEIDES72609DES5827ETZADUS6200CD65843 
$113 04402603 7COOS5S6D63E26U4484384848AA00A7FE 
$11304500073003E2601088C005626BE73003D2022 
$1130460898B3081452720C601812B271F5C512037 
$1130470271A5C812A27155 C812 F2710812E260804 
$1130480D0658260497582092975B208 EV65C26F 8BF 
$1130490D075C20278D30812B27FA812026057300FB 
$11304A05980 3080302B04810923058B3U7E041D47 
ST1304B0D65A585858581B975SAZ0ESIOSABGFUS4EE 
$11304CO1644441BD65AC40F1BD6592701409B56C9 
S11T304D00975639BDETAC812027F9390D0A0N0003E59 
STTZO4E0 2004 0D00A00004F 56455 2464C4F 57040048 
$11304F00A000053594E544158040A000020300498 
S9O30000FC 


*R El EA El AFOB 0300 AD42 
*G 
> 12812 
=) -44E+02 
> 955/113 
23214159292 
> 3655E2/1-33E2 
%2-66917293 
> 100/73 
23-¢3333333E+01 
>» 18-5 
@3.7E?O! 
> #13-123456789 #1 
21-e31234567E+01 
> LeeZl 
SYNTAX 
> 170 
OVERFLOW 
> 1E60*1E60 
OVERFLOW 
> S$e88E3/3 
21-76E*03 


> 


